#include <stdio.h>
#include <stdlib.h>
#include <unistd.h>
#include <string.h>
#include <sys/types.h>
#include <sys/socket.h>
#include <netinet/in.h>
#include <netdb.h> 
#include <time.h>

int buffer[1000], origbuff[125];		//aloca um buffer de 125 e um 1000 posicoes

void error(const char *msg)
{
    perror(msg);
    exit(0);
}

double t1,t2;
double tempo()
{
 struct timeval tv;
 gettimeofday(&tv,0);
 return tv.tv_sec + tv.tv_usec/1e6;
}

void server()		//funcao principal
{
     
     //***************** variáveis ************************
	 
     int sockfd, newsockfd, portno;		//file descriptors e o numero da porta
     socklen_t clilen;					//clilen guarda o tamanho do endereço do cliente
     
     struct sockaddr_in					//estrutura contendo um endereço de internet
			serv_addr, cli_addr;
     int n;								//contem o numero de caracteres lidos ou escritos
	 
	 //*************** criaçao do socket **************
     sockfd = socket(AF_INET, SOCK_STREAM, 0); 		//sockfd recebera o descriptor do sock criado.
     if (sockfd < 0) 
        error("ERRO ao criar o socket");
     
     bzero( (char *) &serv_addr, sizeof(serv_addr) );	//funcao que zera o buffer serv_addr
     
     //******************************
			portno = 10110;								//numero da porta que o socket usará
     //******************************
     
     serv_addr.sin_family = AF_INET;
     serv_addr.sin_addr.s_addr = INADDR_ANY;
     serv_addr.sin_port = htons(portno);
     
     //*********** bind do socket na porta *****
     if (bind(sockfd, (struct sockaddr *) &serv_addr, sizeof(serv_addr)) < 0) 
              error("ERRO no bind");
     
     //******** listen ********
     listen(sockfd,5);
     clilen = sizeof(cli_addr);
     
     //***************** accept o socket dos clientes *********
     newsockfd = accept(sockfd, (struct sockaddr *) &cli_addr, &clilen);
     if (newsockfd < 0) 
          error("ERRO ao aceitar outra conexao");
     
     
     
     //**********************************************
     //********* lendo do cliente para o buffer *****
     //*********************************************
     
     
     bzero(buffer,sizeof(buffer)/4);						//zera o buffer
     
     
     n = read(newsockfd,buffer,sizeof(buffer));		//executa o read dos 1000 valores
     if (n < 0) error("ERRO ao ler do socket");
     
     
     
     

     close(newsockfd);
     close(sockfd);
}






int client(char *argv){
	int sockfd, portno, n;
    struct sockaddr_in serv_addr;
    struct hostent *server;

    //******************************
			portno = 10104;						//numero da porta que o socket usará
    //******************************
    
    //********* criação do sock **********
    sockfd = socket(AF_INET, SOCK_STREAM, 0);	
    if (sockfd < 0) 
        error("ERRO ao abrir socket");
    
    //********* definicao do server ***********
    server = gethostbyname(argv);
    if (server == NULL) {
        fprintf(stderr,"ERRO, nao existe tal host\n");
        exit(0);
    }
    
    bzero((char *) &serv_addr, sizeof(serv_addr));		//zera o buffer serv_addr
    serv_addr.sin_family = AF_INET;
    serv_addr.sin_port = htons(portno);
    serv_addr.sin_addr = *((struct in_addr *)server->h_addr);
    
    
    
    //*********** conexao com o server ************
    if (connect(sockfd,(struct sockaddr *) &serv_addr,sizeof(serv_addr)) < 0) 
        error("ERRO ao conectar");
    
    
    //**************************************
    //******* escrevendo para o server *********
    //**************************************
    bzero(origbuff,sizeof(origbuff)/4);					//zera o buffer original de 125 pos
    int i;
    srand(time(NULL));
    for(i=0;i<sizeof(origbuff)/4;i++){	//para todas as posições do bufferoriginal
		origbuff[i] = rand()%1000;		//gerar um numero random entre 0 e 1000
	}
    
    printf("\nVetor gerado: [");
	for(i=0;i<sizeof(origbuff)/4;i++){		//para todos os valores
		printf(" %d",origbuff[i]);			//imprimir o buffer original
	}
	printf(" ]\n");
    
    n = write(sockfd,origbuff,(sizeof(origbuff)));		//escrever valores para o server
    if (n < 0) 
         error("ERRO ao escrever para o socket");
    printf("\n%d numeros enviados\n",n/4);
    
    
    close(sockfd);
    return 0;
}


int main(int argc, char *argv[]){
    int i;
    char *host = "localhost";

    t1 = tempo();
    
    client(host);
    server();
    
    printf("\nVetor recebido: [");
	for(i=0;i<sizeof(buffer)/4;i++){		//para todos os valores
		printf(" %d",buffer[i]);			//imprimir o buffer
	}
	printf(" ]\n\n");
    
    
    t2 = tempo();
     
    printf("\nTempo total GAMBIT: %.3lf segundos.\n\n",t2-t1);
    return 0;
}
